EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


J 15 


~] 
**F TLE®*]D**OTSLNK | 0) 
| 
| 
| 
| 
000000 TTTTTTTITTT SSSSSSSS_ LL NN NN KK KK 
000000 TTTTTTTITT SSSSSSSS_ LL NN NN KK KK 
00 00 TT ss LL NN NN KK KK 
00 00 TT Ss LL NN NN KK KK 
00 00 TT SS LL NNNN NN KK KK 
00 00 TT ss LL NNNN NN KK KK 
00 00 TT SSSSSS LL NN NN NN KKKKKK 
00 00 TT SSSSSS LL NN NN NN~ KKKKKK 
00 00 TT SS LL NN NNNN KK KK 
00 00 TT SS LL NN NNNN KK KK 
00 00 TT SS LL NN NN KK KK wane 
00 00 TT SS LL NN NN KK KK sail 
000000 TT SSSSSSSS LLLLLLLLLL NN NN KK KK aed 
000000 TT SSSSSSSS LLLLLLLLLL NN NN KK KK iavapa 
| 
RRRRRRRR EEEEEEEEEE QQQadaQ 
RRRRRRRR EEEEEEEEEE aaaaaa 
RR RR EE Q 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ aa | 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE QQ QQ aa 
RR RR EE QQ QQ aa 
RR RR EE QQ aa 
RR RR EE Q QQ 
RR RR EEEEEEEEEE QQQQ QQ 
RR RR EEEEEEEEEE QQQQg aa 
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i. File: OTSLNK.REQ Edit: PLL1035 | 
i This file, OTSLNK.REQ, contains the definitions of all LINKAGE declarations 
: for BLISS modules 


' 
eee RARER AREA EAE ARR AERA RAAT AAA ARTETA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


tt THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY SE USED AND COPIED 
t* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH piceeee ~ Xo THE 
tt INCLUSION OF THE ABOVE cy eaaete NOTICE. THIS SOFTWARE OR OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
* 
x 
® 
® 
® 
® 
ie TRANSFERRED. . 
* 
* 
*® 
x 
® 
* 
® 
i 
* 
*® 


'e THE art ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
campohatita. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Pee ARERR REA AAAAA AAA RARER AAA AAA AAA AAA AAA AAA ARAAT AEE 


1-022 - - h om. = causes the e.5ene, ghenges in JBS_DO_READ and 
SB_DO_ WRITE. JBS 28-F 
ada Tinkage JSB ~£CB_A A1_AO for PUT relative with count. DGP 02-Mar-79 


' 

' 

' Author: T. Hast ngs 

' 1-11 = Add hh 0. TNH 29- ~viy7s 
! a - Add JSB_CB_GET. TNH 2-Aug-78 

! 1-135 = Change name to FORLNK.REQ. JBS ~~ 
! 1-014 - — Songcies notice. JBS 16-N 
! 1-015 = Change file name to OTSLNK. REQ. "Jes 06-DEC-78 
! 1-016 - Add linkage for BMF (Basic major frame ptr) - R11. DGP 17-Dec-78 
! 1-017 = Fix some comments. JBS 18-DEC-78 
: 1-018 - change 488. RECO Linkage to save registers needed for CHSFILL. DGP 

‘ -Feb- | 
! 1-019 = Similarly, ghange JSB_UDFO, since the UDF routines must 

preserve te the sosane registers to call the REC routines. 
! 1-020 = That es a similar change in JBS_REC1 and JSB_REC9. 

JBS S088 138 . 

! 1-021 = Which i ., cure auses the same changes in JSB_UDF9. 

} JBS 28-F 9 
: 1 

! 1-023 - 
' 1-024 = Add Linkage JSB,R IND for indexed file support, DGP 9 ~Apr=79 
' 1-025 - Change | —— 186. CREC. IND to take 5 args. ~Apr= 9 
! 1-026 - or conversion kernel routine. BaP cf ayers 

' 1-028 = Add J migs = for Basic voruat routines. DGP 

! 1-029 = Remove PR NT states At. for new BL 3s com jter. ul? es 1979 

! 1-050 = Change JSB_FORMAT_A7 to Al0. DGP 31-0ct- 
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031 = Add new i inh aoe JSB_REC_WSL1. DGP 06-Nov-79 
- Change JSB_UDFO, JSB_FMTO so that they pass no arguments. SBL 5-Dec-1979 
- 6 a inkage JSB_FMT1 for Fortran format interpreter. JAW 
-AUQ>- 
-034 - ne : JS6_43 R11 to JSB_A6_R11, JSB_A10_R11 to JSB_A11_R11. 
-Far- 
-035 = Change JSB_DO_READ, JSB_REC_IND, JSB_RECO. PLL 1-Jun-1982 


'e+ 

! Linkage definitions for BLISS modules for CALL and JSB routines 
! The idea is to have all definitions here in one place 

' so that they can be changed easily and the entire 

' RTL recompiled. 


'¢ 

! Define symbols for register numbers used to pass parameters from one 
: module to another. Note: these symbols are used in the modules in 

! GLOBAL REGISTER declarations rather than below in this REQUIRE file 
(where all registers appear as absolute numbers). 


LITERAL : , 
K_BMF_REG = 11, ! Register used by Basic compiler to point 
! to last major frame 
K_CCB_REG = 11; ' Pointer to LUB/ISB/RAB 


! 

! First define some macros for frequently used combinations. 

: Do not change the PRESERVE conventions for our pent ty 

! Also do not change the definitions of these combination, since ; 

! they are also used in defining local routines within a module that is CALLed!!! 
! NOTE: Local routines which are JSBed to from JSB procedures must 

! have LINKAGE definitions here even though only local procedures. 

! Otherwise, lose control of NOTUSED vogistare which must be same 

! or more inclusive for JSB routines called by JSB routines. 

See DO_READ and DO_WRITE for examples. 


MACRO 


'¢ 
: CALL interface with CCB passed in R11 (in and/or out) 


CALL_CCB_R11 = 
CALL? GLOBAL(CCB=11) %, 


'¢ 


i JSB interface with CCB passed in R11, 1 arg in RO and 1 arg in R1 and 
only uses RO and R1 


JSB_CCB_A1_AO = 
JSB” (REGISTER = 1, REGISTER = 0): GLOBAL(CCB=11) NOTUSED(2,3,4,5.6.7.8.9,10) %, 


: | 


M1 
OTSLNK.REQ;1 16-SEP-1984 16:51:23.53 Page 3 


1+ 
CALL interface with BMF passed in R11 (in and/or out) 


CALL_BMF_R11 = 
CALL? GLOBAL(BMF=11) %, 


14 


CALL interface with Ist arg in RO 


CALLAO = 
CALL (REGISTER = 0): %, 


14 
: JSB interface with CCB passed in R11, no args and uses RO=-R5 


JSB_CCB_RS = 
JSB? GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 


'¢ 
: JSB interface with CCB passed in R11, no args and only uses RO, R1 


JSB_CCB_NO_ARGS = 
JSB? GLOBAL(CCB=11) NOTUSED (2,3.4,5.6.7.8,9,10) %, 


'¢ 


| JSB interface with CCB passed in R11, 1 arg in RO, and ony uses RO, R1 


JSB_CCB_AO = 
JSB~ (REGISTER = 0): GLOBAL(CCB=11) NOTUSED (2,3,4,5,6,7.8,9,10) %, 


1+ 
: JSB interface with CCB passed in R11, 1 arg in RO, and preserves 
through R5. Needed for MOVC5 or calling routines that use MOVCS. 


JSB_CCB_AO_RS = 
JSB~ (REGISTER = 0): GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 


t+ 
Same as above, but with 2 arguments. 


JSB_CCB_A1_R5 = 
JSB” (REGISTER = 0, REGISTER = 1): GLOBAL(CCB=11) NOTUSED (6,7,8,9,10) %, 


'¢ 

! JSB interface with CCB passed in R11, 1 arg in R2, and only uses RO, R1, R2 
! Needed when input arg is referenced after a CALL or JSB, 

! so do not need to copy to R2. 


N 1 
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JSB_CCB_A2 = 
“JSB°CREGISTER = 2): C.OBAL(CCB=11) NOTUSED (3,4,5,6,7,8,9,10) %, 


'¢ 

i JSB interface with CCB passed in R11 g in R2, ang preserves 
i through R5. Needed in place of JBS_ éce Ao? to do MOVC5, or call 
- routines which do. 


STER = 2): GLOBAL(CCB=11) NOTUSED (6,7,.8,9.10) %, 


t+ 

i JSB interface for Fortran format iy tg with CCB passed in 
i R11, two regents passed in R10 and RY, and routine value 

a returned in R 


JSB_CCB_FMT! = 
JSB™: GLOBAL (CCB 126 = 519. DT_SEEN = 9, FMT_CODE = 8) 
NOPRE SERVE om 3) “woftsee 4,5.6. I q, 


'¢ 
i Support for Indexed files 
a Pass arguments (6) in RO: RS and CCB is passed in R11. 


JSB_CCB_A6_R5 = 

“JSB” (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 3, 

REGISTER = 4, REGISTER = 5):GLOBAL (CCB = 11) NOTUSED (6, 7, 8, 9, 10) %, 
JSB_CCB_AS_RS = 

JSB” (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER = 5, 

REGISTER = 4):GLOBAL (CCB = 11) NOTUSED (6, 7, 8, 9, 10) %, 


'¢ 

i JSB interface with agce * curs in R11, argl in R2, arg2 in RO, 

i and only uses RO, R 

i Needed when input a is referenced after a CALL or JSB, so save 
i copying to R2. 


JSB_CCB_A 
“JSB ~tREGISTER = 2. REGISTER = 0): GLOBAL(CCB=11) NOTUSED (3,4,5,6,7,8,9,10) %, 


te 


- JSB interface (no CCB), args in RO and R9 


JSB_A 
OR CRECTSTER = 0, REGISTER = 1) : NOPRESERVE (2,3,4,5,6,7,8)%, 


—TO™MOOWZ EK KOCH ILO MMOOWDZ ES KCK TO MMO WS Er ACH TOMMOOWZ Er ACH TOMI 
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! JSB for Basic format routines - Plain F ong E rormer. Pass 
: 6 args and preserve all other registers. (1 optional arg) 


JSB_A6_R11 = 
“JSB CREGISTER_= g. REGISTER = 1, REGISTER = 2, REGISTER = 3, REGISTER = 4, REGISTER = 5) : 
PRESERVE (6, 7, 8, 9, 10, 11) %, 


+ 
: JSB for Basic format routines - Fancy F and E formats. Pass 11 args and 
: preserve all other registers. (4 optional args) 


JSB_A11_R11 = 
“JSB” (REGISTER = 0, REGISTER = 1, REGISTER = 2, REGISTER 
REGISTER = 5, REGISTER = 6, REGISTER = 7, REGISTER = 8, 
PRESERVE (11) %, 


REGIS 


'¢ 


: JSB interface (without CCB), no args in registers 


JSB_NO_ARGS = 
JSB: NOTUSED (2,3,4,5,6.7.8,9,10) %; 


OTSLNK.REQ;1 


+ 
+ 


Now define the LINKAGE declarations. | 

Use names associated with the entry point rather than 

the type of Linkage, so that we can easily change 

the Linkage for an entry point without changing that 

for other — points. 

Note: er points that are dispatched to using a table 
must have the same Linkage name. In this case the LINKAGE 
name is associated with the name of the dispatch table and 
the call is made using the general LINKAGE form. 


NOTUSED restriction!!! Because each JSB declaration must be 
aware of all JSB routines which are in turn called. The NOTUSED 
registers can only be the same as the caller (if also A JSB routine) 


‘ or include additional registers as well as gorng same. 


Thus, this file documents the calling tree for JSB srmpegee 
so that the NOTUSED declarations can be kept in agreement. 


LINKAGE 


'¢ 
: Default CALL using CCB as a GLOBAL register, 
all args in arg List. 


CALL_CCB = CALL_CCB_R11, 

'¢ 

! CALL from BASIC compiled code, which uses R11 to point to the 
: major frame. 


CALL_BMF = CALL_BMF_R11, 


'¢ 
: This is a Linkage for BASSSREC_WSL1 to allow one arg to be passed. 


JSB_REC_WSL1 = JSB_CCB_AO_RS, 


'¢ 

! CALL passing first arg in RO. 

' Used by FORENTRY module to make multiple entry points 
: all branch to FIOBEG. 


CALL_FIOBEG = CALL_AO, 


'¢ 

! UDF initialization (user data formatting level of abstraction) 
! Arg is adr. of format statement. 

JSBs to record level initialization (JSB_RECO). 


JSB_UDFO = JSB_CCB_RS, 


1 
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4 
: JSB to plain formatting routines for Basic. 


JSB_FORMAT_A6 = JSB_A6_R11, 


¢ 
JSB to fancy formatting routines for Basic. 


JSB_FORMAT_A11 = JSB_A11_R11, 
'¢ 


i UDF termination (user data formatting level of ab 
: JSBs to DO_READ (JSB_DO_READ) or DO_WRITE (JSB_DO 


JSB_UDF9 = JSB_CCB_RS, 
14 


! UDF read routine 
JSBs to record level (JSB_REC1). 


JSB_DO_READ = JSB_CCB_A1_RS, 
'¢ 


! UDF write routine 
: JSBs to record level (JSB_REC1). 


JSB_DO_WRITE = JSB_CCB_AO_RS, 

'+ 

! Format interpreter initialization: FORMAT_ADR = arg is adr. of format statement 
; JSBs to nothing. 


JSB_FMTO = JSB_CCB_NO_ARGS, 


‘+ 
Format interpreter main processing 


JSB_FMT1 = JSB_CCB_FMT1, 


‘+ 
JSB to REC level of index file support 


IND = JSB_CCB_AS_RS 
IND1 = JSB_CCB_AG_RS, 


te 


i Record Level RMS interface level initialization. 
! JSBs to nothing. 
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mm 
Oo 
No 
nu 
cc 


1+ 
' Record level RMS interface level finished one buffer 
: JSBs to nothing. 


JSB_REC1 = JSB_CCB_RS, 


1+ 
' Record level RMS interface termination of statement. 
: JSBs to nothing. 


JSB_REC9 = JSB_CCB_RS, 
'4 


! Push current LUB/ISB/RAB: LOGICAL_UNIT is unit no., LUN_MIN is min. no. 
! JSBs to nothing. 


JSB_CB_PUSH = JSB_CCB_A2_A0, 


'¢ 
PUT relative with count 


JSB_PUT = JSB_CCB_A1_A0, 


te 
4 2 current LUB/ISB/RAB 
: JSBs to nothing. 


JSB_CB_POP = JSB_CCB_NO_ARGS, 


‘+ 
: Return current LUB/ISB/RAB to free storage (open error or close) 
: JSBs to nothing. 


JSB_CB_RET = JSB_CCB_NO_ARGS, 


'¢ 
: Get adr. of current LIB/ISB/RAB (called only from non-shared routines) 
!' since harder to have a data entry vector which is the same 

! if module were to become shared or vice versa. 


JSB_CB_GET = JSB_CCB_NO_ARGS, 


'¢ 
! JSB to kernel conversion routine 
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JSB_CVT_KERNEL = JSB_AO_A1_R8, 


1+ 
JSB to CALL_VFE routine, args on stack 


JSB_CALL_VFE = JSB_NO_ARGS; 
End of file OTSLNK.REQ 


A505 AH-BT13A-SE "DIGITAL EQUIPMENT CORPORATION 
NEVE VAX/VMS V4.0 CONFIDENTIAL 


AND PROPRIETARY 


